---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source: embed
---

```{r setup, include=FALSE}
library(tidyverse)
library(p8105.datasets)
library(plotly)
library(flexdashboard)
```

```{r warning = FALSE}
data("instacart")

instacart = 
  instacart %>% 
  as_tibble(instacart) %>% 
  select(order_hour_of_day, aisle, department) %>% 
  filter(department %in% c("produce","dairy eggs"))
```

Column {data-width=600}
-----------------------------------------------------------------------

### Chart A

```{r}
instacart %>% 
  count(aisle, department) %>% 
  mutate(aisle = fct_reorder(aisle, n)) %>% 
  plot_ly(x = ~aisle, y = ~n, color = ~department, type = "bar", colors = "viridis") %>% 
  layout(title  = "Number of items ordered in each aisle of Produce or Dairy/Eggs", 
         xaxis = list(title = "Aisle"), yaxis = list(title = "Number of items ordered"))
```

### Chart C

```{r}
instacart %>% 
  count(aisle, order_hour_of_day) %>% 
  plot_ly(x = ~order_hour_of_day, y = ~n, color = ~aisle, type = "scatter", mode = "line", colors = "viridis")  %>% 
  layout(title  = "Number of items ordered over hours of day for each aisle", xaxis = list(title = "Order time in hours"), yaxis = list(title = "Number of items ordered"))
```

Column {data-width=400}
-----------------------------------------------------------------------

### Chart B

```{r}
instacart %>% 
  mutate(aisle = fct_reorder(aisle, order_hour_of_day)) %>% 
  plot_ly(x = ~aisle, y = ~order_hour_of_day, color = ~department, type = "box", colors = "viridis") %>% 
  layout(title  = "Order time in hours for each aisle of Produce or Dairy/Eggs", 
         xaxis = list(title = "Aisle"), yaxis = list(title = "Order time in hours"))
```